home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archivers / CompDisk / DecompDisk.c < prev    next >
C/C++ Source or Header  |  1996-09-26  |  42KB  |  1,591 lines
  1.     /* The standard Arp CLI interface strings. */
  2.  
  3. char *CLI_Template    = "FILE/A,DRIVE/A";
  4. char *CLI_Help        = "\nUsage: DecompDisk [FILE <FileName>] [DRIVE <DF0:, DF1:, RAD:, etc.>]\n";
  5.  
  6.     /* The argument vector offsets. */
  7.  
  8. #define ARG_FILE    1
  9. #define ARG_DRIVE    2
  10.  
  11.     /* Legal size of a 3.5" disk track. */
  12.  
  13. #define TRACKSIZE    (TD_SECTOR * NUMSECS * 2)
  14. #define EXTRA        (2 * 16)
  15. #define EXTRASIZE    (2 * (TD_SECTOR * NUMSECS + 16))
  16.  
  17.     /* Longword offsets into the root block. */
  18.  
  19. #define ROOT_CHKSUM    5
  20. #define ROOT_BMFFLAG    78
  21. #define    ROOT_ALTDAYS    105
  22. #define ROOT_ALTMINS    106
  23. #define ROOT_ALTTICKS    107
  24. #define ROOT_CRTDAYS    121
  25. #define ROOT_CRTMINS    122
  26. #define ROOT_CRTTICKS    123
  27.  
  28.     /* Easy macro, punches a text into the window. */
  29.  
  30. #define Punch(s)    Text(RPort,s,strlen(s))
  31.  
  32.     /* Function prototypes. */
  33.  
  34. VOID            Announce(VOID);
  35. VOID            ChangeRoot(ULONG *);
  36. LONG __regargs        DoBlockCrc(UBYTE *,LONG);
  37. LONG            Inhibit(char *,LONG);
  38. UBYTE *            B2C(UBYTE *,BSTR);
  39. LONG            DriverAction(LONG,LONG *,LONG);
  40. LONG            MakeID(char *);
  41. LONG            WriteDump(char *,char *);
  42. LONG            FindDevice(char *);
  43. VOID            EraseGadget(struct RastPort *,struct Gadget *,LONG);
  44. LONG            GetChangeCount(LONG);
  45.  
  46. LONG            CXBRK(VOID);
  47. VOID __stdargs        main(LONG,char **);
  48.  
  49.     /* These are imported from DecompSub.c */
  50.  
  51. LONG            compinit(VOID);
  52. VOID            compexit(VOID);
  53. LONG __regargs        decompfiles(VOID *,LONG,VOID *,LONG);
  54.  
  55.     /* Global structure identifiers. */
  56.  
  57. struct IOExtTD        *DiskRequest;
  58. struct MsgPort        *DiskPort;
  59. struct Library        *ReqBase;
  60. struct Library        *IconBase;
  61. extern struct ExecBase    *SysBase;
  62. struct TextFont        *TextFont;
  63. UBYTE             Legal[5];
  64. struct IntuiMessage    *Massage;
  65. struct Gadget        *Gadget;
  66. LONG             Class,Code,DriveWanted = -1;
  67.  
  68.     /* Version ID & special dump file header. */
  69.  
  70. #define PRGVERSION    5
  71. #define PROGRAMID    "COMP"
  72.  
  73.     /* The standard dump fie header. */
  74.  
  75. struct CompInfo
  76. {
  77.     LONG    ci_ProgramID;    /* Alphanumeric ID header. */
  78.     LONG    ci_Version;    /* Version of CompDisk file was created with. */
  79.     LONG    ci_Compression;    /* Compression mode used for this file. */
  80.     ULONG    ci_ExtFlags;    /* Various extension flags. */
  81. };
  82.  
  83.     /* Set in CompInfo . ci_ExtFlags if disk has a root-block. */
  84.  
  85. #define CI_HASROOT    0x00000001
  86.  
  87.     /* The text font used for text rendering. */
  88.  
  89. struct TextAttr TxtAttr = {(UBYTE *)"topaz.font",8,0,65};
  90.  
  91.     /* Here comes a whole bunch of gadget definitions. */
  92.  
  93. struct IntuiText BoxIntTxt[6] =
  94. {
  95.     {1,0,JAM1,24,  3,&TxtAttr,(UBYTE *)"RAD: ",        (struct IntuiText *)NULL},
  96.     {1,0,JAM1,24,  3,&TxtAttr,(UBYTE *)"DF3: ",        (struct IntuiText *)NULL},
  97.     {1,0,JAM1,24,  3,&TxtAttr,(UBYTE *)"DF2: ",        (struct IntuiText *)NULL},
  98.     {1,0,JAM1,24,  3,&TxtAttr,(UBYTE *)"DF1: ",        (struct IntuiText *)NULL},
  99.     {1,0,JAM1,24,  3,&TxtAttr,(UBYTE *)"DF0: ",        (struct IntuiText *)NULL},
  100.     {1,0,JAM2,34,-11,&TxtAttr,(UBYTE *)"Select Drive",    (struct IntuiText *)NULL}
  101. };
  102.  
  103. UBYTE StrInfStr[160];
  104. UBYTE UndoStrInfStr[160];
  105.  
  106. struct StringInfo BoxStrInf = {&StrInfStr[0],&UndoStrInfStr[0],0,160,23,0,0,0,0,NULL,NULL,NULL};
  107.  
  108. SHORT BoxBrdDat[] =
  109. {
  110.     -1,-1,88,-1,88,14,-1,14,-1,0,
  111.     -2,-1,89,-1,89,14,-2,14,-2,-1,
  112.     -1,-1,88,-1,88,14,-1,14,-1,0,
  113.     -2,-1,89,-1,89,14,-2,14,-2,-1,
  114.     -1,-1,88,-1,88,14,-1,14,-1,0,
  115.     -2,-1,89,-1,89,14,-2,14,-2,-1,
  116.     -1,-1,88,-1,88,14,-1,14,-1,0,
  117.     -2,-1,89,-1,89,14,-2,14,-2,-1,
  118.     -1,-1,88,-1,88,14,-1,14,-1,0,
  119.     -2,-1,89,-1,89,14,-2,14,-2,-1,
  120.     -1,-1,88,-1,95,-1,184,-1,184,8,95,8,88,8,-1,8,-1,-1,
  121.     -2,-1,185,-1,185,8,-2,8,-2,-1,
  122. };
  123.  
  124. struct Border BoxBrd[] =
  125. {
  126.     {0,0,1,0,0,5,&BoxBrdDat[  0],&BoxBrd[1]},
  127.     {0,0,1,0,0,5,&BoxBrdDat[ 10],NULL},
  128.     {0,0,1,0,0,5,&BoxBrdDat[ 20],&BoxBrd[3]},
  129.     {0,0,1,0,0,5,&BoxBrdDat[ 30],NULL},
  130.     {0,0,1,0,0,5,&BoxBrdDat[ 40],&BoxBrd[5]},
  131.     {0,0,1,0,0,5,&BoxBrdDat[ 50],NULL},
  132.     {0,0,1,0,0,5,&BoxBrdDat[ 60],&BoxBrd[7]},
  133.     {0,0,1,0,0,5,&BoxBrdDat[ 70],NULL},
  134.     {0,0,1,0,0,5,&BoxBrdDat[ 80],&BoxBrd[9]},
  135.     {0,0,1,0,0,5,&BoxBrdDat[ 90],NULL},
  136.     {0,0,1,0,0,9,&BoxBrdDat[100],&BoxBrd[11]},
  137.     {0,0,1,0,0,5,&BoxBrdDat[118],NULL},
  138. };
  139.  
  140. struct Gadget BoxGad[6] =
  141. {
  142.     {&BoxGad[1],  6,71, 88,14,0,  3,1,(APTR)&BoxBrd[ 0],NULL,&BoxIntTxt[0],NULL,NULL,        0,NULL},
  143.     {&BoxGad[2],102,53, 88,14,0,  3,1,(APTR)&BoxBrd[ 2],NULL,&BoxIntTxt[1],NULL,NULL,        1,NULL},
  144.     {&BoxGad[3],  6,53, 88,14,0,  3,1,(APTR)&BoxBrd[ 4],NULL,&BoxIntTxt[2],NULL,NULL,        2,NULL},
  145.     {&BoxGad[4],102,35, 88,14,0,  3,1,(APTR)&BoxBrd[ 6],NULL,&BoxIntTxt[3],NULL,NULL,        3,NULL},
  146.     {&BoxGad[5],  6,35, 88,14,0,  3,1,(APTR)&BoxBrd[ 8],NULL,&BoxIntTxt[4],NULL,NULL,        4,NULL},
  147.     {NULL,        6,23,184, 8,0,515,4,(APTR)&BoxBrd[10],NULL,&BoxIntTxt[5],NULL,(APTR)&BoxStrInf,    5,NULL}
  148. };
  149.  
  150.     /* The window title. */
  151.  
  152. UBYTE WindowName[20];
  153.  
  154.     /* The NewWindow definition. */
  155.  
  156. struct NewWindow NewWindow =
  157. {
  158.     0,11,
  159.     196,88,
  160.     -1,-1,
  161.     CLOSEWINDOW | DISKINSERTED | GADGETUP,
  162.     ACTIVATE | RMBTRAP | WINDOWDRAG | WINDOWCLOSE | WINDOWDEPTH,
  163.     (struct Gadget *)&BoxGad[0],
  164.     (struct Image *)NULL,
  165.     WindowName,
  166.     (struct Screen *)NULL,
  167.     (struct BitMap *)NULL,
  168.     0,0,
  169.     0,0,
  170.     WBENCHSCREEN
  171. };
  172.  
  173.     /* Window interface structures. */
  174.  
  175. struct Window    *Window;
  176. struct RastPort    *RPort;
  177.  
  178.     /* The known legal drives. */
  179.  
  180. char *Drives[5] =
  181. {
  182.     "RAD:",
  183.     "DF3:",
  184.     "DF2:",
  185.     "DF1:",
  186.     "DF0:"
  187. };
  188.  
  189.     /* Here comes a mouse pointer interface and some data. */
  190.  
  191. #define SetWait(Window) SetPointer(Window,ElecArtsWaitPointer,22,16,0,0)
  192.  
  193. USHORT __chip ElecArtsWaitPointer[(22 * 2) + 4] =
  194. {
  195.     0x0000,0x0000,
  196.  
  197.     0x6700,0xC000,
  198.     0xCFA0,0xC700,
  199.     0xBFF0,0x0FA0,
  200.     0x70F8,0x3FF0,
  201.     0x7DFC,0x3FF8,
  202.     0xFBFC,0x7FF8,
  203.     0x70FC,0x3FF8,
  204.     0x7FFE,0x3FFC,
  205.     0x7F0E,0x3FFC,
  206.     0x3FDF,0x1FFE,
  207.     0x7FBE,0x3FFC,
  208.     0x3F0E,0x1FFC,
  209.     0x1FFC,0x07F8,
  210.     0x07F8,0x01E0,
  211.     0x01E0,0x0080,
  212.     0x07C0,0x0340,
  213.     0x0FE0,0x07C0,
  214.     0x0740,0x0200,
  215.     0x0000,0x0000,
  216.     0x0070,0x0020,
  217.     0x0078,0x0038,
  218.     0x0038,0x0010,
  219.  
  220.     0x0000,0x0000
  221. };
  222.  
  223.     /* Announce():
  224.      *
  225.      *    Beeps thrice (Shakespeare is dead) to indicate special
  226.      *    program conditions.
  227.      */
  228.  
  229. VOID
  230. Announce()
  231. {
  232.     static UBYTE AnyChannel[4] = {1,2,4,8};
  233.  
  234.     static ULONG __chip SoundData[1086] =
  235.     {
  236.         0xFAF5F4D0,0xCF1720E4,0xEF1F1F3F,0x6410EF4F,0x7008F6F0,0xBCEF28C0,
  237.         0x80BF00C8,0xEFE09FFF,0x7F60E73F,0x78657F60,0xA8DF7B00,0x809B8083,
  238.         0xFF008083,0x3F400F3E,0x00FF7F7F,0x20FF7D50,0x2F408080,0xDF208080,
  239.         0x8F87DF5E,0xE0803F7F,0x606B7010,0x7F7F6080,0xEF20D0DF,0xA0808137,
  240.         0xD0809FF8,0x0F7F7FD0,0xFF7F7F40,0x4800DB77,0x608080BF,0xC08FB280,
  241.         0x801F7FC0,0xBF5F677F,0x7F60BF7F,0x7F20CBD0,0x80AF3680,0x808300C8,
  242.         0xCFC08FFF,0x7F78EB37,0x7F7F7F7E,0xE0FF7F60,0xC0A7A097,0xF7E08080,
  243.         0xBFE8B0BF,0xA4BF7F7F,0x20FF7F7F,0x7F7F40D7,0x6F7F1097,0xB3A0BFF8,
  244.         0x808081FF,0xC0A7B59F,0xFF7F70D8,0x3F7F7F7F,0x7800FF7F,0x70C09FC0,
  245.         0xB7E7C080,0x80DF0090,0x9FB0CF6F,0x7F00DF7F,0x7F7F7828,0x0F6F7F20,
  246.         0xA0AFCFE2,0xD0808083,0xF7D0949B,0xBF2F7F40,0xF02F7F7F,0x7F50123F,
  247.         0x7F60C89F,0xCFE5E0A0,0x8080CFF0,0xA085B7FF,0x5F7000FF,0x777F7F60,
  248.         0x282F7F7F,0x1097BFEB,0xE4C08080,0x8FFBC080,0x97DF2F6C,0x30E9377F,
  249.         0x7F70402F,0x5F7F50C0,0xAFDFF8D0,0x888080D7,0xE0A081BF,0x0F4F4000,
  250.         0xFF7F7F7F,0x48304F7F,0x7800A9CF,0xFFE8A880,0x80AFEEC0,0x809FEF37,
  251.         0x4818F73F,0x7F7F6032,0x3F6F7F40,0xC0BBFB00,0xC0808087,0xDFD88881,
  252.         0xBF1F3F28,0xF40F7F7F,0x78403B5F,0x7F7000AF,0xDF08E0A0,0x8080BFDA,
  253.         0xA8809FF7,0x2F2800FF,0x3F7F7F50,0x304F7F78,0x30D0CFFF,0x04C08080,
  254.         0x9FD7C080,0x87CF1F2E,0x08F71F7F,0x7F68303F,0x777F6000,0xCBEF14E0,
  255.         0x908083BF,0xD0A0809F,0xFF2B14F4,0xFF4F7F7E,0x4033677F,0x7420D0DF,
  256.         0x1300C080,0x81B7D3B0,0x808FD71B,0x2000F72F,0x7F7F602D,0x4F7F7E48,
  257.         0xF0DFFF14,0xE090809F,0xCFC89080,0xAFFF2000,0xEE0F577F,0x70343B6F,
  258.         0x7F6810E1,0xF71B00B0,0x808BBFD0,0xA8808FDF,0x1908EAF7,0x2F7F7E48,
  259.         0x2D577F7C,0x40F0EF17,0x18E09083,0xAFD1C084,0x80BFFF10,0xF2EB0F5F,
  260.         0x7E60303F,0x777F6010,0xF1072100,0xB0889FCF,0xC8A0809F,0xDF0F00E1,
  261.         0xFB377768,0x402F5F7F,0x7428F8FF,0x1F14D094,0x93BFD2B0,0x8487BFFF,
  262.         0x04E2E71B,0x5F74502B,0x477F7F48,0x08FD1724,0x00B08FAF,0xD5C49080,
  263.         0x9FEF08EC,0xDEFF3F6A,0x5832375F,0x7F682401,0x0F2710D0,0xA0A7CBD0,
  264.         0xA8818FCF,0xFDF4D8E7,0x1F5B6040,0x2D4F7F7C,0x40100B27,0x24F0B09F,
  265.         0xBFD6C088,0x83AFEBF8,0xE0D7FF3F,0x61482C3F,0x6F7F6020,0x0B1F3010,
  266.         0xD0A2B7D7,0xCCA08097,0xCFF7E4CE,0xE71F5B54,0x322F5F7F,0x74401017,
  267.         0x2F20F0B4,0xADCFD8B8,0x8887B7EB,0xECD1D7FF,0x3F544029,0x3F777F60,
  268.         0x20152D34,0x08C8AEBF,0xDBC89881,0x9FD7EED8,0xCBEF2B4F,0x42282F5F,
  269.         0x7F703416,0x273C20E8,0xB5BBD7D8,0xA8828FBF,0xE9E0C6CF,0x0F3F4C30,
  270.         0x27477B78,0x50241F39,0x3000D0BB,0xCFDAC090,0x87A7D7E0,0xCCCBEF2F,
  271.         0x4638263B,0x677E6030,0x21333C20,0xE0C0C7DD,0xD0A88597,0xBFDFD0C2,
  272.         0xD7173F3C,0x262D4F7B,0x7440242F,0x3F3000CC,0xC7DBDCC0,0x8C8FAFD7,
  273.         0xD4C0C7FF,0x2F3C2823,0x3F6F7A58,0x302A3F40,0x18E0C7D7,0xDFC8A08D,
  274.         0x9FC7D4C4,0xBFDF1733,0x2C202F5B,0x7668402E,0x3B463000,0xD4D7E3D8,
  275.         0xB49097B7,0xD1C6B9CB,0xFF272C20,0x23476F70,0x5034394A,0x4010E0D5,
  276.         0xE3E2C4A0,0x8FA7C7CA,0xB8BBDF0F,0x2B201B37,0x5F756040,0x37475028,
  277.         0xF4D9DFE6,0xD0A8909F,0xBDC8BCB5,0xCFFF1F22,0x1B274F6F,0x68503A43,
  278.         0x504008E4,0xDFE8E0C0,0x9895AFC7,0xC0B1BFE7,0x1722181D,0x3B677058,
  279.         0x403F4F4C,0x28F2E0E7,0xE9D0A892,0xA7BFC4B4,0xB3D7FF1F,0x1A142B4F,
  280.         0x6F60443A,0x4B544008,0xE6E7F0E4,0xC0969DBB,0xC7BAADBF,0xEF131A10,
  281.         0x1B3F5F64,0x503C4756,0x4A20F8EC,0xF3F0D0A8,0x9DAFC4C0,0xAEB3D7FF,
  282.         0x150C0F2B,0x4F655840,0x3F535840,0x10F2F5F8,0xE2B89DA7,0xBFC0B0A7,
  283.         0xBFEF0B0C,0x06173F5F,0x6048414F,0x5F502000,0xF8FCF0D0,0xA49FB5BF,
  284.         0xB0A3AFCF,0xFF0A060F,0x2F556054,0x454B5B58,0x340CFCFD,0xF8E0B8A2,
  285.         0xAFBFB9A8,0xA7BFEF05,0x04051F3F,0x5D564447,0x575E4820,0x020000F0,
  286.         0xC8AAADBD,0xC0B0A3B7,0xDBFB00FD,0x0B2F5356,0x48414F5F,0x58300C04,
  287.         0x0700E0B8,0xABB9C3B8,0xA1A7BFED,0xFCF8FF1B,0x3F564C40,0x495D6040,
  288.         0x200B0B06,0xF0C8B2B6,0xBFBAA89F,0xB7DBF3F4,0xF70B2F4F,0x50424557,
  289.         0x62543011,0x0D0D00D8,0xB8B5BFC0,0xB0A0ABCF,0xEBF3F3FF,0x1F475042,
  290.         0x3D4F5F5A,0x40180C11,0x08E8C4B7,0xBFC6C0A8,0xA5BFDFF2,0xF0F70F2F,
  291.         0x4B44383F,0x575C4828,0x13131100,0xD4C0BFC6,0xC2B0A4B7,0xD7E9ECEF,
  292.         0xFF1F3D42,0x383B4F5C,0x50382013,0x180CE8CC,0xC4C9CAC0,0xA8A9C7DF,
  293.         0xE8E7F30F,0x2B3E3631,0x3F575844,0x2A1A1E1C,0x00DACCCD,0xCFC6B0A4,
  294.         0xB7D7E1E0,0xE7FD1B35,0x362E374F,0x5C503822,0x212410EC,0xD4D0D0C8,
  295.         0xB8A6ABC7,0xD9DADFEF,0x0B273430,0x33475B58,0x48322728,0x2000E0D5,
  296.         0xD3CCC0AC,0xA3B7CFD5,0xD4DFFB17,0x2D302E3F,0x5A605440,0x302E2C18,
  297.         0xF0D8D5D0,0xC4B0A0A7,0xBFCFCDD3,0xEB071F32,0x2E374F66,0x60503A31,
  298.         0x322800E0,0xD6D2C8B8,0xA29AAFC7,0xCBCBDDFB,0x172F3232,0x47656858,
  299.         0x44383430,0x14E8D6D4,0xCCBCA899,0x9FBFCBC9,0xD3EF0F2B,0x34333D5B,
  300.         0x6A604839,0x343020F8,0xD8D2D2C6,0xB2A09FB7,0xCBCECEDF,0xFF1F2F2E,
  301.         0x2F475F60,0x503A3535,0x2C0CE8D9,0xDAD4C0AA,0xA0AFBFCC,0xC8CFEF0D,
  302.         0x23272737,0x57625844,0x3A3B3820,0x00E2DFDE,0xD0B8A4A7,0xBBC7C5C6,
  303.         0xDBFB161F,0x212B475D,0x5C4C3E3F,0x403410F2,0xE7E7DCC4,0xACA5AFBF,
  304.         0xC2BDC7DF,0xFF191A1F,0x35576158,0x48424745,0x2800EEE9,0xE4D0B4A0,
  305.         0xA5B7BEB8,0xBBCFEF13,0x1A19274D,0x63615246,0x494D4014,0xF4ECE8DC,
  306.         0xC0A49DAF,0xBBB8B3BF,0xDFFF1B1A,0x1F3F5F64,0x5A4A474C,0x482000EB,
  307.         0xEAE0CCB0,0x9EA7BBBE,0xB6BFD7FB,0x161A192B,0x4F5F5848,0x41454830,
  308.         0x0AF2EFEE,0xE0C2ACAB,0xBDC6BCB7,0xCBE70712,0x0E153753,0x54463E43,
  309.         0x4B442000,0xF8FCF0D8,0xC0AFB9C5,0xC0B1B7D3,0xEF030407,0x1F3F524A,
  310.         0x40454F50,0x38180303,0x00ECCCB5,0xB7C2C0B2,0xADBFDFF7,0xFCFB0B2F,
  311.         0x474C403F,0x4F5A4C2C,0x10090C00,0xE0C0B5BF,0xC3B8A6AF,0xCBEBF7F6,
  312.         0xFD1B3F4D,0x443C475A,0x5A40200E,0x0F0CF0D0,0xB8BBC3C0,0xA8A3B7DB,
  313.         0xEFF0F307,0x2F47483C,0x3F555D50,0x30140F12,0x00E0C0BB,0xC3C2B4A4,
  314.         0xAFCFEDF1,0xF0FB1B3B,0x49403947,0x5B584020,0x0F1310F4,0xD0BFC5CB,
  315.         0xC4B0A7BF,0xDFF0EBEE,0xFF273F40,0x30374F5A,0x48301819,0x1E10E8CA,
  316.         0xCBD1CCB8,0xA6AFCBE5,0xE2DFEF0F,0x2F3B3133,0x475F5840,0x28202420,
  317.         0x00D8CBCF,0xCCC0A8A1,0xB7D7DEDB,0xE3FF1F37,0x39353F5B,0x62503425,
  318.         0x24200CE4,0xC8C9CCC0,0xA89FABC7,0xDDDDDFF7,0x17353C37,0x3F53645A,
  319.         0x40282323,0x14F0D0C7,0xCDC8B4A0,0xA3BBD7DE,0xDBE7FF2B,0x3A39394B,
  320.         0x5F644830,0x28272004,0xE0C9CDCA,0xBAA29FAF,0xC7DBD8DF,0xFB1F353A,
  321.         0x38435F69,0x58402C2A,0x2410E8CC,0xC7CDC0AC,0x9CA7BFD7,0xDCDBEF0F,
  322.         0x2F3A3639,0x4F656048,0x2C272718,0xF8D8C9CE,0xCAB8A29F,0xBBD3DEDB,
  323.         0xE7FF2535,0x34343F5B,0x60503227,0x27200AE4,0xD0D1D4C4,0xB0A4AFCB,
  324.         0xDAD9DBF3,0x0F272F2F,0x374D5E54,0x40302D28,0x1800DCD4,0xD7D0B8A8,
  325.         0xAABBD3D7,0xD5DFFF1F,0x2B2D313F,0x575C4832,0x2E2C2208,0xEAD6D9D8,
  326.         0xC0ACA8B5,0xCBD7D4D7,0xF7152327,0x2B374B5B,0x50383031,0x2A1800E2,
  327.         0xDBDED0B8,0xABAFBFCF,0xD4D3DFFF,0x1B21252F,0x3F535640,0x34343220,
  328.         0x08F0E0E0,0xDCC4B0AF,0xBAC7D1CF,0xD7EF0F1D,0x1F27374B,0x59503835,
  329.         0x38301800,0xE5E1E1D0,0xB8ABB3BF,0xCFD0CFDF,0xFF1B1F23,0x2D3F5554,
  330.         0x40313432,0x2004ECE1,0xE4E0C4B0,0xB3BFCDD3,0xD0D7F713,0x1B1C2335,
  331.         0x47524832,0x32372C14,0x00EAE8E9,0xD8C0B3BD,0xC9CFCCCC,0xDFFF1512,
  332.         0x17273F4F,0x4C38313B,0x3C2408F6,0xEEF0E8C8,0xB1B7C7CC,0xC8C6CFEF,
  333.         0x0E100D1B,0x37494E42,0x363B4438,0x1800F7F4,0xECD8B8AF,0xBDC5C2BE,
  334.         0xC5DDFF0F,0x0C132B47,0x5350423C,0x45442808,0xF8F1ECDC,0xC0A8AFBF,
  335.         0xC2BDBFD3,0xEF0F1613,0x253F5354,0x483C3D43,0x3410F5EE,0xEAE0CCB0,
  336.         0xABBFCBC7,0xC4CFEB0B,0x1B16192F,0x4B4E4438,0x30373820,0xF8EDEFEB,
  337.         0xDCC4B5BF,0xD5D4CCCF,0xDFFF1314,0x0C1B3742,0x3C30282D,0x362808F8,
  338.         0xFAFAF0E0,0xC6C3D5D9,0xCDC7D5E7,0xFF090107,0x1F393A35,0x31323D40,
  339.         0x24080303,0xFCE8D0BE,0xC7D2C8BE,0xC3D7EBFF,0x02FF1537,0x403E3B37,
  340.         0x3F473814,0x060400F0,0xD8C0BBCB,0xCABDBDCB,0xDFF70501,0x0B273F41,
  341.         0x3E3A3B44,0x40200803,0x00F4E2CA,0xBABFCEC4,0xBDC7D7EF,0xFF060517,
  342.         0x373F3E3A,0x373D4334,0x120501FC,0xF0D8C2BF,0xCFCEC2BF,0xCDDFFB03,
  343.         0x00071F3B,0x3E38353B,0x4540220C,0x0605FCE8,0xCCC0C9CF,0xC6BCBFD7,
  344.         0xEFFDFCFF,0x17333F3C,0x34374545,0x32180806,0x03F2D8C4,0xC7CECAC0,
  345.         0xBDCBE7FB,0xFDFF0D27,0x3B3D3534,0x3F463A20,0x0A0505FA,0xE0CAC7CF,
  346.         0xD0C8BEC7,0xDFF7FDFC,0x031B333C,0x342D3743,0x40281007,0x0804F0D4,
  347.         0xC8CFD7D0,0xC0BFCFED,0xFBF7F707,0x2737352B,0x2F3F4838,0x200D0D0E,
  348.         0x00E4CDCF,0xD7D4C4B9,0xBFDBEFF4,0xF0FB172F,0x38302E3B,0x4B483018,
  349.         0x11120AF4,0xD4C8CFD3,0xC8B6B7CB,0xE7F3F0F5,0x0B2B3B38,0x3037474E,
  350.         0x40201011,0x0E00E0C8,0xCBD3CEBC,0xB6BFDFF5,0xF5F5FF1F,0x3738302F,
  351.         0x3B484024,0x100D0E04,0xECD2CDD7,0xD8CCBEBF,0xD7EFF5F1,0xF70F2731,
  352.         0x2C262F3F,0x40301A12,0x131000E4,0xD6DADDD4,0xC4BFCBDF,0xEEEBEFFF,
  353.         0x17272822,0x293B4238,0x24191819,0x0CF2E0DD,0xDFDACCBD,0xBFD7E7E6,
  354.         0xE6F30B1F,0x27222335,0x43403020,0x1C1F1800,0xE8E0E2E0,0xD2C1BFCF,
  355.         0xDFE4E1E9,0xFD131F20,0x1E2B3D40,0x34281E1F,0x2010F8E6,0xE6E4DCCC,
  356.         0xC0C7D7E2,0xE0E1EFFF,0x171E1A1F,0x333F3A30,0x2420241C,0x02F0E9E8,
  357.         0xE1D6C2BE,0xCFDFDCDA,0xE5FB0F1D,0x1A192B3F,0x40362A22,0x252810F8,
  358.         0xECECE8E0,0xCCBEC7DB,0xE0D8DDEF,0xFF151A13,0x1D333E36,0x2C242226,
  359.         0x2002F0F1,0xF0E8D8CA,0xC7D5E2DC,0xD9E5F907,0x0F100F1F,0x35342925,
  360.         0x24272614,0x00F8FCF4,0xE4D4CCCF,0xDEDDD4D9,0xEFFE070A,0x0A172F37,
  361.         0x2E282A2D,0x2C200AFD,0xFFFAEAD8,0xCCCBD5D8,0xD0CFDFF3,0xFF070913,
  362.         0x27393630,0x2D2F3129,0x1400FCFA,0xF0E0D0C8,0xCED8D6D0,0xD9EFFF07,
  363.         0x0C0F1D2F,0x38302A2A,0x2C292008,0xFAFCF8E8,0xD8CFCFDB,0xDED6D7EB,
  364.         0xFB030909,0x0F23312C,0x2525272A,0x241000FF,0x00F4E4D8,0xD3DAE1D8,
  365.         0xD2DDEFFB,0x01030617,0x2B2C2425,0x292B2A1C,0x08030600,0xECE0D6D6,
  366.         0xDEDCD1D5,0xE7F4FBFF,0x030D1F2C,0x26262A2C,0x2B241404,0x0603F4E4,
  367.         0xDCD6D7DC,0xD6D2DFEF,0xF7FE0309,0x17272823,0x272B2925,0x1A0A0306,
  368.         0x00E8E0DB,0xDADEDCD5,0xDBEDF7FB,0xFF070F1F,0x28212127,0x28231C0D,
  369.         0x010500F0,0xE4E1DEDF,0xE2DCDAE7,0xF7FBFF05,0x09172320,0x1B1F2621,
  370.         0x1A120501,0x04FAEAE6,0xE5E3E4E4,0xE0E6F7FC,0xFC02090E,0x191E1817,
  371.         0x1F201812,0x0A030402,0xF4EAECEC,0xE8E7E4E3,0xEFF9F9F8,0xFF070F17,
  372.         0x18151B24,0x2018120C,0x0A0A00F0,0xEAEBE8E3,0xDEDCE3EF,0xF6F5FA03,
  373.         0x0F171D1B,0x1D262920,0x18100A07,0x02F4E6E5,0xE6E0DCDB,0xDDE7F6FA,
  374.         0xF9FF0F19,0x1F211F21,0x2A24160F,0x0A0300F8,0xE8E0E6E6,0xDEDDDFE5,
  375.         0xF5FFFCFD,0x0D171B1F,0x1C191F26,0x180C0A07,0x0200F4E6,0xE9EEE8E0,
  376.         0xE1E5EEFA,0xFAF7FF0F,0x13141616,0x1B232012,0x0F100C07,0x00F2EDF1,
  377.         0xECE1DEE0,0xE3EFF2EF,0xF5030D0F,0x15181B26,0x281C1618,0x140C04F8,
  378.         0xEEEFECE0,0xD8DBDFE5,0xEFEEEFFF,0x0E10131A,0x1F252B22,0x18191810,
  379.         0x05FCF0ED,0xEEE4D8D9,0xDFE5EDEE,0xEFFB0D12,0x14171D23,0x29221814,
  380.         0x150E04FA,0xF0EDEEE8,0xDEDBE1E7,0xEEF3F3FB,0x0B121114,0x191E2322,
  381.         0x16111310,0x04FCF6F0,0xF1F0E4DF,0xE5EBEEF2,0xF4F9030E,0x0D0D1318,
  382.         0x1C1D1810,0x11130C00,0xFCF8F7F6,0xF0E4E5EB,0xEDEEEFF1,0xF9030806,
  383.         0x0911171B,0x1A141318,0x160C0400,0xFDFBF5EA,0xE3E7E9E7,0xE8EBEFF9,
  384.         0x0202050F,0x171C1F20,0x1B1E1F15,0x0B0600FA,0xF4EAE0DE,0xE2E1DFE5,
  385.         0xEBF3FF07,0x070F1C21,0x2324211E,0x1F1A0C02,0x00F8F1EA,0xE0DADFE2,
  386.         0xE1E3EBF3,0xFF070B0E,0x171F2324,0x221C1B1A,0x1003FEF9,0xF3ECE5DD,
  387.         0xDDE3E5E6,0xEBF1FB05,0x0B0C111B,0x2020201C,0x18191508,0x00FCF8F2,
  388.         0xECE4DFE3,0xE7E7E7ED,0xF5FF070A,0x0C131E20,0x1F1C1818,0x181001FC,
  389.         0xFAF7F0E8,0xE1E1E7EA,0xE9EBF3FD,0x070C0C0F,0x1921201C,0x18161612,
  390.         0x04FCF9F8,0xF3EDE6E2,0xE7EEEEEC,0xF2FB030B,0x0C0B0F1A,0x1B181411,
  391.         0x11110A00,0xFCFBF9F6,0xF0E9EAEF,0xF0EFF1F6,0xFD050806,0x09111616,
  392.         0x14100F13,0x100600FF,0xFFFCF8F0,0xECEEF2F0,0xEEEFF7FE,0x03030207,
  393.         0x11151411,0x11131410,0x08010100,0xFCF4EDEB,0xEEEFECEC,0xEFF7FF02,
  394.         0x01050E15,0x16151314,0x16140A04,0x0000FCF6,0xF0EAECEE,0xECEDEFF6,
  395.         0xFD030306,0x0C121516,0x14121212,0x0C0400FF,0xFCF8F3ED,0xECEEEEEF,
  396.         0xF1F5FBFF,0x0406090E,0x11131211,0x100F0C08,0x0200FFFC,0xF7F4F1F0,
  397.         0xF1F2F2F5,0xF9FDFF04,0x05070B0F,0x0F10100D,0x0D0D0803,0x0100FCFB,
  398.         0xF6F0F0F3,0xF3F3F6F7,0xFC020402,0x060B0E11,0x100C0B0E,0x0D070200,
  399.         0xFEFEFBF2,0xEEF0F3F4,0xF4F4F7FF,0x05040309,0x0F121310,0x0C0F100B,
  400.         0x0300FEFD,0xFCF4ECED,0xF2F4F2F3,0xF6FD0507,0x04070F14,0x14130F0E,
  401.         0x110E04FE,0xFEFCF9F4,0xECEAEEF2,0xF1F2F6FD,0x050A090A,0x0F151614,
  402.         0x100C0D0C,0x04FEFAF9,0xF8F6F0EC,0xEFF3F5F7,0xF9FD030A,0x0A090D11,
  403.         0x1212100B,0x0A0A0500,0xFCFBF9F8,0xF4F0F1F5,0xF6F7F9FD,0x01050807,
  404.         0x090D0F0D,0x0C0B0909,0x0702FFFE,0xFEFBF8F6,0xF4F5F8F7,0xF7FAFF00,
  405.         0x03050407,0x0B0B0A0A,0x0A0A0B08,0x03010202,0x00FCF7F6,0xF8F7F5F4,
  406.         0xF6FAFEFF,0xFEFF060B,0x0C0C0D0F,0x11100C08,0x060603FD,0xF7F4F3F3,
  407.         0xF0EEEFF3,0xF9FBFDFF,0x030B0F0F,0x0F121615,0x120D0807,0x0600F6F1,
  408.         0xF0EEEEEC,0xE9EFF7FB,0xFDFF050D,0x13151413,0x1716120C,0x0500FFFC,
  409.         0xF4EEEDED,0xEEEFEFF1,0xF9FF0306,0x090E1216,0x14100F10,0x0C0701FD,
  410.         0xFBFCF8F1,0xF0F1F2F4,0xF6F6F9FF,0x06060709,0x0C0F110D,0x0A0C0C08,
  411.         0x0400FCFD,0xFDF6F2F3,0xF4F5F7F6,0xF6FE0304,0x0608090E,0x110E0A0B,
  412.         0x0B080400,0xFBFAFCF9,0xF4F3F5F6,0xF8FAF9FD,0x03070708,0x090B0E0E,
  413.         0x0A060706,0x0200FCF9,0xF9FBF9F6,0xF7F9FBFD,0xFFFF0307,0x09090808,
  414.         0x08080704,0x010000FE,0xFCFBFBFC,0xFEFEFEFF,0x00010202,0x03030303,
  415.         0x02000000,0xFF000000,0x00010203,0x03030305,0x040100FF,0xFDFDFDFC,
  416.         0xFAFCFEFE,0xFFFFFF03,0x07070709,0x0A090A08,0x03030300,0xFBF8F6F5
  417.     };
  418.  
  419.     struct IOAudio    *AudioBlock;
  420.     struct MsgPort    *ReplyPort;
  421.  
  422.     if(AudioBlock = (struct IOAudio *)AllocMem(sizeof(struct IOAudio),MEMF_PUBLIC | MEMF_CLEAR))
  423.     {
  424.         if(ReplyPort = (struct MsgPort *)CreatePort(NULL,0))
  425.         {
  426.             AudioBlock -> ioa_Data                        = &AnyChannel[0];
  427.             AudioBlock -> ioa_Length                    = 4;
  428.             AudioBlock -> ioa_Request . io_Message . mn_ReplyPort        = ReplyPort;
  429.             AudioBlock -> ioa_Request . io_Message . mn_Node . ln_Pri    = 90;
  430.  
  431.             if(!OpenDevice("audio.device",0,AudioBlock,0))
  432.             {
  433.                 AudioBlock -> ioa_Request . io_Command    = CMD_WRITE;
  434.                 AudioBlock -> ioa_Request . io_Flags    = ADIOF_PERVOL;
  435.                 AudioBlock -> ioa_Period        = 428;
  436.                 AudioBlock -> ioa_Volume        = 64;
  437.                 AudioBlock -> ioa_Cycles        = 3;
  438.                 AudioBlock -> ioa_Data            = (UBYTE *)&SoundData[0];
  439.                 AudioBlock -> ioa_Length        = 4344;
  440.  
  441.                 BeginIO(AudioBlock);
  442.                 WaitIO(AudioBlock);
  443.                 AbortIO(AudioBlock);
  444.  
  445.                 CloseDevice(AudioBlock);
  446.             }
  447.  
  448.             DeletePort(ReplyPort);
  449.         }
  450.  
  451.         FreeMem(AudioBlock,sizeof(struct IOAudio));
  452.     }
  453. }
  454.  
  455.     /* DoBlockCrc(Mem,Size):
  456.      *
  457.      *    Calculates the 16-Bit CRC value for a given
  458.      *    memory block.
  459.      */
  460.  
  461. LONG __regargs
  462. DoBlockCrc(Mem,Size)
  463. register UBYTE *Mem;
  464. register LONG Size;
  465. {
  466.     /* crctab calculated by Mark G. Mendel, Network Systems Corporation */
  467.  
  468.     static const unsigned short crctab[256] =
  469.     {
  470.         0x0000,0x1021,0x2042,0x3063,0x4084,0x50A5,0x60C6,0x70E7,
  471.         0x8108,0x9129,0xA14A,0xB16B,0xC18C,0xD1AD,0xE1CE,0xF1EF,
  472.         0x1231,0x0210,0x3273,0x2252,0x52B5,0x4294,0x72F7,0x62D6,
  473.         0x9339,0x8318,0xB37B,0xA35A,0xD3BD,0xC39C,0xF3FF,0xE3DE,
  474.         0x2462,0x3443,0x0420,0x1401,0x64E6,0x74C7,0x44A4,0x5485,
  475.         0xA56A,0xB54B,0x8528,0x9509,0xE5EE,0xF5CF,0xC5AC,0xD58D,
  476.         0x3653,0x2672,0x1611,0x0630,0x76D7,0x66F6,0x5695,0x46B4,
  477.         0xB75B,0xA77A,0x9719,0x8738,0xF7DF,0xE7FE,0xD79D,0xC7BC,
  478.         0x48C4,0x58E5,0x6886,0x78A7,0x0840,0x1861,0x2802,0x3823,
  479.         0xC9CC,0xD9ED,0xE98E,0xF9AF,0x8948,0x9969,0xA90A,0xB92B,
  480.         0x5AF5,0x4AD4,0x7AB7,0x6A96,0x1A71,0x0A50,0x3A33,0x2A12,
  481.         0xDBFD,0xCBDC,0xFBBF,0xEB9E,0x9B79,0x8B58,0xBB3B,0xAB1A,
  482.         0x6CA6,0x7C87,0x4CE4,0x5CC5,0x2C22,0x3C03,0x0C60,0x1C41,
  483.         0xEDAE,0xFD8F,0xCDEC,0xDDCD,0xAD2A,0xBD0B,0x8D68,0x9D49,
  484.         0x7E97,0x6EB6,0x5ED5,0x4EF4,0x3E13,0x2E32,0x1E51,0x0E70,
  485.         0xFF9F,0xEFBE,0xDFDD,0xCFFC,0xBF1B,0xAF3A,0x9F59,0x8F78,
  486.         0x9188,0x81A9,0xB1CA,0xA1EB,0xD10C,0xC12D,0xF14E,0xE16F,
  487.         0x1080,0x00A1,0x30C2,0x20E3,0x5004,0x4025,0x7046,0x6067,
  488.         0x83B9,0x9398,0xA3FB,0xB3DA,0xC33D,0xD31C,0xE37F,0xF35E,
  489.         0x02B1,0x1290,0x22F3,0x32D2,0x4235,0x5214,0x6277,0x7256,
  490.         0xB5EA,0xA5CB,0x95A8,0x8589,0xF56E,0xE54F,0xD52C,0xC50D,
  491.         0x34E2,0x24C3,0x14A0,0x0481,0x7466,0x6447,0x5424,0x4405,
  492.         0xA7DB,0xB7FA,0x8799,0x97B8,0xE75F,0xF77E,0xC71D,0xD73C,
  493.         0x26D3,0x36F2,0x0691,0x16B0,0x6657,0x7676,0x4615,0x5634,
  494.         0xD94C,0xC96D,0xF90E,0xE92F,0x99C8,0x89E9,0xB98A,0xA9AB,
  495.         0x5844,0x4865,0x7806,0x6827,0x18C0,0x08E1,0x3882,0x28A3,
  496.         0xCB7D,0xDB5C,0xEB3F,0xFB1E,0x8BF9,0x9BD8,0xABBB,0xBB9A,
  497.         0x4A75,0x5A54,0x6A37,0x7A16,0x0AF1,0x1AD0,0x2AB3,0x3A92,
  498.         0xFD2E,0xED0F,0xDD6C,0xCD4D,0xBDAA,0xAD8B,0x9DE8,0x8DC9,
  499.         0x7C26,0x6C07,0x5C64,0x4C45,0x3CA2,0x2C83,0x1CE0,0x0CC1,
  500.         0xEF1F,0xFF3E,0xCF5D,0xDF7C,0xAF9B,0xBFBA,0x8FD9,0x9FF8,
  501.         0x6E17,0x7E36,0x4E55,0x5E74,0x2E93,0x3EB2,0x0ED1,0x1EF0
  502.     };
  503.  
  504.     register unsigned short crc = 0;
  505.  
  506.     /*
  507.      * updcrc macro derived from article Copyright (C) 1986 Stephen Satchell. 
  508.      *  NOTE: First argument must be in range 0 to 255.
  509.      *        Second argument is referenced twice.
  510.      * 
  511.      * Programmers may incorporate any or all code into their programs, 
  512.      * giving proper credit within the source. Publication of the 
  513.      * source routines is permitted so LONG as proper credit is given 
  514.      * to Stephen Satchell, Satchell Evaluations and Chuck Forsberg, 
  515.      * Omen Technology.
  516.      */
  517.  
  518.     while(Size-- > 0)
  519.         crc = crctab[((crc >> 8) & 255)] ^ (crc << 8) ^ *Mem++;
  520.  
  521.     return((LONG)crc);
  522. }
  523.  
  524.     /* ChangeRoot(RootBlock):
  525.      *
  526.      *    Updates creationdate/altered date for the current
  527.      *    root block.
  528.      */
  529.  
  530. VOID
  531. ChangeRoot(RootBlock)
  532. ULONG *RootBlock;
  533. {
  534.     register ULONG *BlockPtr,BlockSum,i;
  535.  
  536.     DateStamp((struct DateStamp *)&RootBlock[ROOT_ALTDAYS]);
  537.  
  538.     RootBlock[ROOT_CRTDAYS]        = RootBlock[ROOT_ALTDAYS];
  539.     RootBlock[ROOT_CRTMINS]        = RootBlock[ROOT_ALTMINS];
  540.     RootBlock[ROOT_CRTTICKS]    = RootBlock[ROOT_ALTTICKS];
  541.  
  542.     if(RootBlock[ROOT_BMFFLAG] == DOSFALSE)
  543.         RootBlock[ROOT_BMFFLAG] = DOSTRUE;
  544.  
  545.     for(BlockPtr = RootBlock, RootBlock[ROOT_CHKSUM] = 0, BlockSum = 0, i = 0 ; i < TD_SECTOR / 4 ; i++)
  546.         BlockSum += *(BlockPtr++);
  547.  
  548.     RootBlock[ROOT_CHKSUM] = 0 - BlockSum;
  549. }
  550.  
  551.     /* Inhibit(DriveID,Code):
  552.      *
  553.      *    Gives the Disk-Validator access to a disk drive
  554.      *    or doesn't.
  555.      */
  556.  
  557. LONG
  558. Inhibit(DriveID,Code)
  559. char *DriveID;
  560. LONG Code;
  561. {
  562.     struct MsgPort    *HandlerTask;
  563.     LONG         Args[7];
  564.  
  565.     if(!(HandlerTask = (struct MsgPort *)DeviceProc(DriveID)))
  566.         return(FALSE);
  567.  
  568.     Args[0] = Code;
  569.  
  570.     return(SendPacket(ACTION_INHIBIT,Args,HandlerTask));
  571. }
  572.  
  573.     /* B2C(to,from):
  574.      *
  575.      *    Converts a BSTR into a 'C'-String.
  576.      */
  577.  
  578. UBYTE *
  579. B2C(to,from)
  580. UBYTE *to;
  581. BSTR from;
  582. {
  583.     UBYTE    *src    = (UBYTE *)BADDR(from) + 1;
  584.     UBYTE     length    = *((UBYTE *)BADDR(from));
  585.  
  586.     while(length--)
  587.         *to++ = *src++;
  588.  
  589.     *to = NULL;
  590.  
  591.     return(to);
  592. }
  593.  
  594.     /* DriverAction(Command,Dest,Track):
  595.      *
  596.      *    Lets the current unit driver take some action.
  597.      */
  598.  
  599. LONG
  600. DriverAction(Command,Dest,Track)
  601. LONG Command,*Dest,Track;
  602. {
  603.     DiskRequest -> iotd_Req . io_Command    = Command;
  604.     DiskRequest -> iotd_Req . io_Length    = TRACKSIZE;
  605.     DiskRequest -> iotd_Req . io_Data    = (APTR)Dest;
  606.     DiskRequest -> iotd_Req . io_Offset    = Track * TRACKSIZE;
  607.  
  608.     DiskRequest -> iotd_SecLabel        = (ULONG)Dest + TRACKSIZE;
  609.  
  610.     DoIO(DiskRequest);
  611.  
  612.     return((LONG)DiskRequest -> iotd_Req . io_Error);
  613. }
  614.  
  615.     /* MakeID(IDString):
  616.      *
  617.      *    Turns a 4 char string into a longword ID.
  618.      */
  619.  
  620. LONG
  621. MakeID(IDString)
  622. char *IDString;
  623. {
  624.     LONG LongID;
  625.  
  626.     LongID = (IDString[0] << 24) | (IDString[1] << 16) | (IDString[2] << 8) | (IDString[3]);
  627.  
  628.     return(LongID);
  629. }
  630.  
  631.     /* WriteDump(FileName,Unit):
  632.      *
  633.      *    The main decompression routine.
  634.      */
  635.  
  636. LONG
  637. WriteDump(FileName,Unit)
  638. char *FileName,*Unit;
  639. {
  640.     ULONG                *Sector,*ChipSector,*Buffer;
  641.     LONG                 i,CrunchLength,Error,Success = TRUE;
  642.     BPTR                 DumpFile;
  643.     char                 TempString[40];
  644.     extern struct DosLibrary    *DOSBase;
  645.     struct DeviceNode        *DeviceNode;
  646.     struct FileSysStartupMsg    *FileMsg;
  647.     UBYTE                 Name[108],DevName[108];
  648.     struct CompInfo             CompInfo;
  649.     unsigned short             TrackCRC;
  650.     BOOL                 HasFast;
  651.  
  652.         /* First issue: try to find the DOS-Node of the unit
  653.          * driver.
  654.          */
  655.  
  656.     strcpy(DevName,Unit);
  657.  
  658.     for(i = 0 ; i < strlen(DevName) ; i++)
  659.         if(DevName[i] == ':')
  660.             DevName[i] = 0;
  661.  
  662.         /* Some nice casting. */
  663.  
  664.     DeviceNode = (struct DeviceNode *)BADDR(((struct DosInfo *)BADDR(((struct RootNode *)DOSBase -> dl_Root) -> rn_Info)) -> di_DevInfo);
  665.  
  666.         /* Scans the list of device nodes. */
  667.  
  668.     while(DeviceNode)
  669.     {
  670.         B2C(Name,DeviceNode -> dn_Name);
  671.  
  672.             /* Is it the name we want? */
  673.  
  674.         if(!Strcmp(Name,DevName) && (FileMsg = (struct FileSysStartupMsg *)BADDR(DeviceNode -> dn_Startup)))
  675.             goto FoundIt;
  676.  
  677.         DeviceNode = (struct DeviceNode *)BADDR(DeviceNode -> dn_Next);
  678.     }
  679.  
  680.         /* Didn't find the driver. */
  681.  
  682.     if(Window)
  683.         SimpleRequest("Couldn't find driver %s:.",DevName);
  684.     else
  685.         Printf("Couldn't find driver %s:.\a\n",DevName);
  686.  
  687.     return(FALSE);
  688.  
  689.         /* Go along with the driver initialization. */
  690.  
  691. FoundIt:if(!(DiskPort = (struct MsgPort *)CreatePort(NULL,0)))
  692.     {
  693.         if(Window)
  694.             SimpleRequest("Couldn't create port.");
  695.         else
  696.             Puts("Couldn't create port.\a");
  697.  
  698.         return(FALSE);
  699.     }
  700.  
  701.     if(!(DiskRequest = (struct IOExtTD *)CreateExtIO(DiskPort,sizeof(struct IOExtTD))))
  702.     {
  703.         DeletePort(DiskPort);
  704.  
  705.         if(Window)
  706.             SimpleRequest("Couldn't create device buffer.");
  707.         else
  708.             Puts("Couldn't create device buffer.\a");
  709.  
  710.         return(FALSE);
  711.     }
  712.  
  713.     B2C(Name,FileMsg -> fssm_Device);
  714.  
  715.     if(OpenDevice(Name,FileMsg -> fssm_Unit,DiskRequest,FileMsg -> fssm_Flags))
  716.     {
  717.         DeleteExtIO(DiskRequest);
  718.         DeletePort(DiskPort);
  719.  
  720.         if(Window)
  721.             SimpleRequest("Couldn't open unit driver.");
  722.         else
  723.             Puts("Couldn't open unit driver.\a");
  724.  
  725.         return(FALSE);
  726.     }
  727.  
  728.     if(!(ChipSector = (ULONG *)AllocMem(EXTRASIZE,MEMF_CHIP | MEMF_CLEAR)))
  729.     {
  730.         CloseDevice(DiskRequest);
  731.         DeleteExtIO(DiskRequest);
  732.         DeletePort(DiskPort);
  733.  
  734.         if(Window)
  735.             SimpleRequest("Couldn't allocate sector buffer.");
  736.         else
  737.             Puts("Couldn't allocate sector buffer.\a");
  738.  
  739.         return(FALSE);
  740.     }
  741.  
  742.         /* Working buffer is to reside in fast-ram only. If
  743.          * there is no such ram, there will be no second
  744.          * working buffer.
  745.          */
  746.  
  747.     if(!(Sector = (ULONG *)AllocMem(EXTRASIZE,MEMF_FAST)))
  748.     {
  749.         Sector = ChipSector;
  750.         HasFast = FALSE;
  751.     }
  752.     else
  753.         HasFast = TRUE;
  754.  
  755.     if(!(Buffer = (ULONG *)AllocMem(EXTRASIZE,MEMF_PUBLIC)))
  756.     {
  757.         if(HasFast)
  758.             FreeMem(Sector,EXTRASIZE);
  759.  
  760.         FreeMem(ChipSector,EXTRASIZE);
  761.         CloseDevice(DiskRequest);
  762.         DeleteExtIO(DiskRequest);
  763.         DeletePort(DiskPort);
  764.  
  765.         if(Window)
  766.             SimpleRequest("Couldn't allocate work buffer.");
  767.         else
  768.             Puts("Couldn't allocate work buffer.\a");
  769.  
  770.         return(FALSE);
  771.     }
  772.  
  773.     DiskRequest -> iotd_Req . io_Command = TD_CHANGESTATE;
  774.     DoIO(DiskRequest);
  775.  
  776.     if(DiskRequest -> iotd_Req . io_Actual)
  777.     {
  778.         if(HasFast)
  779.             FreeMem(Sector,EXTRASIZE);
  780.  
  781.         FreeMem(Buffer,EXTRASIZE);
  782.         FreeMem(ChipSector,EXTRASIZE);
  783.         CloseDevice(DiskRequest);
  784.         DeleteExtIO(DiskRequest);
  785.         DeletePort(DiskPort);
  786.  
  787.         if(Window)
  788.             SimpleRequest("No disk in unit.");
  789.         else
  790.             Puts("No disk in unit.\a");
  791.  
  792.         return(FALSE);
  793.     }
  794.  
  795.     DiskRequest -> iotd_Req . io_Command = TD_PROTSTATUS;
  796.     DoIO(DiskRequest);
  797.  
  798.     if(DiskRequest -> iotd_Req . io_Actual)
  799.     {
  800.         if(HasFast)
  801.             FreeMem(Sector,EXTRASIZE);
  802.  
  803.         FreeMem(Buffer,EXTRASIZE);
  804.         FreeMem(ChipSector,EXTRASIZE);
  805.         CloseDevice(DiskRequest);
  806.         DeleteExtIO(DiskRequest);
  807.         DeletePort(DiskPort);
  808.  
  809.         if(Window)
  810.             SimpleRequest("Disk is write protected.");
  811.         else
  812.             Puts("Disk is write protected.\a");
  813.  
  814.         return(FALSE);
  815.     }
  816.  
  817.     DiskRequest -> iotd_Req . io_Command = TD_CHANGENUM;
  818.     DoIO(DiskRequest);
  819.  
  820.     DiskRequest -> iotd_Count = DiskRequest -> iotd_Req . io_Actual;
  821.  
  822.     if(!Inhibit(Unit,DOSTRUE))
  823.     {
  824.         if(HasFast)
  825.             FreeMem(Sector,EXTRASIZE);
  826.  
  827.         FreeMem(Buffer,EXTRASIZE);
  828.         FreeMem(ChipSector,EXTRASIZE);
  829.         CloseDevice(DiskRequest);
  830.         DeleteExtIO(DiskRequest);
  831.         DeletePort(DiskPort);
  832.  
  833.         if(Window)
  834.             SimpleRequest("Couldn't inhibit unit driver.");
  835.         else
  836.             Puts("Couldn't inhibit unit driver.\a");
  837.  
  838.         return(FALSE);
  839.     }
  840.  
  841.         /* Open the dump file. */
  842.  
  843.     if(!(DumpFile = Open(FileName,MODE_OLDFILE)))
  844.     {
  845.         if(HasFast)
  846.             FreeMem(Sector,EXTRASIZE);
  847.  
  848.         Inhibit(Unit,DOSFALSE);
  849.         FreeMem(Buffer,EXTRASIZE);
  850.         FreeMem(ChipSector,EXTRASIZE);
  851.         CloseDevice(DiskRequest);
  852.         DeleteExtIO(DiskRequest);
  853.         DeletePort(DiskPort);
  854.  
  855.         if(Window)
  856.             SimpleRequest("Couldn't open dump file.");
  857.         else
  858.             Puts("Couldn't open dump file.\a");
  859.  
  860.         return(FALSE);
  861.     }
  862.  
  863.         /* Read the header. */
  864.  
  865.     if(Read(DumpFile,&CompInfo,sizeof(struct CompInfo)) != sizeof(struct CompInfo))
  866.     {
  867.         if(Window)
  868.             SimpleRequest("Error reading file \"%s\"!",FileName);
  869.         else
  870.             Printf("Error reading file \"%s\"!\a\n",FileName);
  871.  
  872.         Success = FALSE;
  873.         goto Sneak;
  874.     }
  875.  
  876.         /* Not a valid ID? */
  877.  
  878.     if(CompInfo . ci_ProgramID != MakeID(PROGRAMID))
  879.     {
  880.         if(Window)
  881.             SimpleRequest("\"%s\" is not a compressed disk file!",FileName);
  882.         else
  883.             Printf("\"%s\" is not a compressed disk file!\a\n",FileName);
  884.  
  885.         Success = FALSE;
  886.         goto Sneak;
  887.     }
  888.  
  889.         /* Compression mode support? */
  890.  
  891.     if(CompInfo . ci_Compression != 1)
  892.     {
  893.         if(Window)
  894.             SimpleRequest("Don't know compression format for \"%s\"!",FileName);
  895.         else
  896.             Printf("Don't know compression format for \"%s\"!\a\n",FileName);
  897.  
  898.         Success = FALSE;
  899.         goto Sneak;
  900.     }
  901.  
  902.     if(!compinit())
  903.     {
  904.         if(Window)
  905.             SimpleRequest("Can't allocate compression buffer.");
  906.         else
  907.             Printf("Can't allocate compression buffer.");
  908.  
  909.         Success = FALSE;
  910.         goto Sneak;
  911.     }
  912.  
  913.         /* Begin the decompression. */
  914.  
  915.     for(i = 0 ; i < 80 ; i++)
  916.     {
  917.             /* Update window. */
  918.  
  919.         if(Window)
  920.         {
  921.             SPrintf(TempString,"%02ld/%02ld",i,79 - i);
  922.  
  923.             Move(RPort,151,76);
  924.             Punch(TempString);
  925.  
  926.             Move(RPort,100,85);
  927.             Punch("Read ");
  928.  
  929.             if(Massage = (struct IntuiMessage *)GetMsg(Window -> UserPort))
  930.             {
  931.                 Class    = Massage -> Class;
  932.                 Gadget    = (struct Gadget *)Massage -> IAddress;
  933.  
  934.                 ReplyMsg((struct Message *)Massage);
  935.  
  936.                 if(Class == GADGETUP && Gadget -> GadgetID == DriveWanted)
  937.                 {
  938.                     if(TwoGadRequest("Really stop decompressing from drive %s: ?",DevName))
  939.                     {
  940.                         Success = FALSE;
  941.                         goto Sneak;
  942.                     }
  943.                 }
  944.             }
  945.         }
  946.         else
  947.         {
  948.             Printf("\2331ATrack %02ld, \233K",i);
  949.  
  950.             if(SetSignal(0,0) & SIGBREAKF_CTRL_C)
  951.             {
  952.                 Puts("\n*** Break: DecompDisk\a");
  953.                 SetSignal(0,SIGBREAKF_CTRL_C);
  954.  
  955.                 Success = FALSE;
  956.  
  957.                 goto Sneak;
  958.             }
  959.         }
  960.  
  961.             /* Read the length of the compressed block. */
  962.  
  963.         if(Read(DumpFile,&CrunchLength,sizeof(LONG)) != sizeof(LONG))
  964.         {
  965.             if(Window)
  966.                 SimpleRequest("Error reading dump file.");
  967.             else
  968.                 Puts("Error reading dump file.\a");
  969.  
  970.             Success = FALSE;
  971.  
  972.             break;
  973.         }
  974.  
  975.         if(Window)
  976.         {
  977.             Move(RPort,151,85);
  978.             SPrintf(TempString,"%5ld",(CrunchLength) ? CrunchLength : 11296);
  979.  
  980.             Punch(TempString);
  981.         }
  982.  
  983.             /* Read the CRC value. */
  984.  
  985.         if(Read(DumpFile,&TrackCRC,sizeof(unsigned short)) != sizeof(unsigned short))
  986.         {
  987.             if(Window)
  988.                 SimpleRequest("Error reading dump file.");
  989.             else
  990.                 Puts("Error reading dump file.\a");
  991.  
  992.             Success = FALSE;
  993.  
  994.             break;
  995.         }
  996.  
  997.             /* Crunchlength == 0 means no compression. */
  998.  
  999.         if(!CrunchLength)
  1000.         {
  1001.             if(Read(DumpFile,Sector,EXTRASIZE) != EXTRASIZE)
  1002.             {
  1003.                 if(Window)
  1004.                     SimpleRequest("Error reading dump file.");
  1005.                 else
  1006.                     Puts("Error reading dump file.\a");
  1007.  
  1008.                 Success = FALSE;
  1009.  
  1010.                 break;
  1011.             }
  1012.         }
  1013.         else
  1014.         {
  1015.                 /* Read the compressed data. */
  1016.  
  1017.             if(Read(DumpFile,Buffer,CrunchLength) != CrunchLength)
  1018.             {
  1019.                 if(Window)
  1020.                     SimpleRequest("Error reading dump file.");
  1021.                 else
  1022.                     Puts("Error reading dump file.\a");
  1023.     
  1024.                 Success = FALSE;
  1025.  
  1026.                 break;
  1027.             }
  1028.  
  1029.             if(Window)
  1030.             {
  1031.                 Move(RPort,100,85);
  1032.                 Punch("Unpack");
  1033.             }
  1034.             else
  1035.                 Printf("unpacking, ");
  1036.  
  1037.                 /* Decompress it. */
  1038.  
  1039.             decompfiles(Buffer,CrunchLength,Sector,EXTRASIZE);
  1040.         }
  1041.  
  1042.         if(Window)
  1043.         {
  1044.             Move(RPort,100,85);
  1045.             Punch("Check ");
  1046.         }
  1047.         else
  1048.             Printf("checking, ");
  1049.  
  1050.             /* Check track CRC. */
  1051.  
  1052.         if(TrackCRC != DoBlockCrc((UBYTE *)Sector,EXTRASIZE))
  1053.         {
  1054.             if(Window)
  1055.                 SimpleRequest("Track %ld has a checksum error!",i);
  1056.             else
  1057.                 Printf("Track %ld has a checksum error!\a\n",i);
  1058.  
  1059.             goto Sneak;
  1060.         }
  1061.  
  1062.             /* If it has a root block, update it. */
  1063.  
  1064.         if(i == 40 && (CompInfo . ci_ExtFlags & CI_HASROOT))
  1065.             ChangeRoot(Sector);
  1066.  
  1067.         if(Window)
  1068.         {
  1069.             Move(RPort,100,85);
  1070.             Punch("Write");
  1071.  
  1072.             Move(RPort,151,85);
  1073.             Punch("11296");
  1074.         }
  1075.         else
  1076.             Printf("writing...\n");
  1077.  
  1078.             /* Move the block over... I do hope that this
  1079.              * simple copy doesn't spoil the 1% speed
  1080.              * advantage my fast-ram has compared to
  1081.              * chip ram.
  1082.              */
  1083.  
  1084.         if(HasFast)
  1085.             CopyMemQuick(Sector,ChipSector,EXTRASIZE);
  1086.  
  1087.             /* Write the decompressed data. */
  1088.  
  1089.         if(Error = DriverAction(ETD_FORMAT,ChipSector,i))
  1090.         {
  1091.             if(Window)
  1092.                 SimpleRequest("Device error Nº %ld!\n",Error);
  1093.             else
  1094.                 Printf("Device error Nº %ld!\a\n",Error);
  1095.  
  1096.             Success = FALSE;
  1097.  
  1098.             goto Sneak;
  1099.         }
  1100.     }
  1101.  
  1102.         /* Close the file. */
  1103.  
  1104. Sneak:    Close(DumpFile);
  1105.  
  1106.         /* Free the compression buffer. */
  1107.  
  1108.     compexit();
  1109.  
  1110.         /* Turn the motor off. */
  1111.  
  1112.     DiskRequest -> iotd_Req . io_Command    = TD_MOTOR;
  1113.     DiskRequest -> iotd_Req . io_Length    = 0;
  1114.     DoIO(DiskRequest);
  1115.  
  1116.         /* Free the resources. */
  1117.  
  1118.     FreeMem(Buffer,EXTRASIZE);
  1119.     FreeMem(ChipSector,EXTRASIZE);
  1120.     CloseDevice(DiskRequest);
  1121.     DeleteExtIO(DiskRequest);
  1122.     DeletePort(DiskPort);
  1123.  
  1124.     if(HasFast)
  1125.         FreeMem(Sector,EXTRASIZE);
  1126.  
  1127.         /* Enable the Disk-Validator. */
  1128.  
  1129.     Inhibit(Unit,DOSFALSE);
  1130.  
  1131.         /* Give it a chance. */
  1132.  
  1133.     Delay(3 * TICKS_PER_SECOND);
  1134.  
  1135.     return(Success);
  1136. }
  1137.  
  1138.     /* FindDevice(DevName):
  1139.      *
  1140.      *    Tries to find a device, returns true if successful.
  1141.      */
  1142.  
  1143. LONG
  1144. FindDevice(DevName)
  1145. char *DevName;
  1146. {
  1147.     char                *Pointer,Name[257];
  1148.     extern struct DosLibrary    *DOSBase;
  1149.     register struct DeviceNode    *DevInfo;
  1150.     struct RootNode            *RootNode = (struct RootNode *)DOSBase -> dl_Root;
  1151.     SHORT                 i;
  1152.  
  1153.     Forbid();
  1154.  
  1155.     DevInfo = (struct DeviceNode *)BADDR(((struct DosInfo *)BADDR(RootNode -> rn_Info)) -> di_DevInfo);
  1156.  
  1157.     while(DevInfo)
  1158.     {
  1159.         if(DevInfo -> dn_Type == DLT_DEVICE && DevInfo -> dn_Task)
  1160.         {
  1161.             Pointer = (char *)BADDR(DevInfo -> dn_Name);
  1162.  
  1163.             for(i = 0 ; i < Pointer[0] ; i++)
  1164.                 Name[i] = Pointer[i + 1];
  1165.  
  1166.             Name[Pointer[0]    ] = ':';
  1167.             Name[Pointer[0] + 1] = 0;
  1168.  
  1169.             if(!Strcmp(Name,DevName))
  1170.             {
  1171.                 Permit();
  1172.                 return(TRUE);
  1173.             }
  1174.         }
  1175.  
  1176.         DevInfo = (struct DeviceNode *)BADDR(DevInfo -> dn_Next);
  1177.     }
  1178.  
  1179.     Permit();
  1180.  
  1181.     return(FALSE);
  1182. }
  1183.  
  1184.     /* EraseGadget(RPort,Gadget,Colour):
  1185.      *
  1186.      *    Erase the imagery of a gadget.
  1187.      */
  1188.  
  1189. VOID
  1190. EraseGadget(RPort,Gadget,Colour)
  1191. struct RastPort *RPort;
  1192. struct Gadget *Gadget;
  1193. LONG Colour;
  1194. {
  1195.     SetAPen(RPort,Colour);
  1196.  
  1197.     SetDrMd(RPort,JAM2);
  1198.  
  1199.     RectFill(RPort,Gadget -> LeftEdge,Gadget -> TopEdge,Gadget -> LeftEdge + Gadget -> Width - 1,Gadget -> TopEdge + Gadget -> Height - 1);
  1200.  
  1201.     SetAPen(RPort,1);
  1202. }
  1203.  
  1204.     /* Stub, don't need this one. */
  1205.  
  1206. LONG CXBRK() { return(0); }
  1207.  
  1208.     /* main(argc,argv):
  1209.      *
  1210.      *    The entry point to this program.
  1211.      */
  1212.  
  1213. VOID __stdargs
  1214. main(argc,argv)
  1215. LONG argc;
  1216. char **argv;
  1217. {
  1218.     struct Process        *ThatsMe = (struct Process *)SysBase -> ThisTask;
  1219.     extern struct WBStartup    *WBenchMsg;
  1220.     struct WBArg        *WArg;
  1221.     LONG             NumItems,i,j,Success;
  1222.     APTR             OldPtr;
  1223.     struct DiskObject    *DiskObject;
  1224.     ULONG             Secs1,Secs2,Micros;
  1225.  
  1226.         /* Started from Workbench? */
  1227.  
  1228.     if(ThatsMe -> pr_CLI)
  1229.         goto CallOn;
  1230.  
  1231.         /* Open the req.library. */
  1232.  
  1233.     if(!(ReqBase = (struct Library *)OpenLibrary("req.library",0)))
  1234.         exit(RETURN_ERROR);
  1235.  
  1236.         /* Don't forget the standard font. */
  1237.  
  1238.     if(!(TextFont = (struct TextFont *)OpenFont(&TxtAttr)))
  1239.     {
  1240.         CloseLibrary(ReqBase);
  1241.         exit(RETURN_ERROR);
  1242.     }
  1243.  
  1244.         /* All device gadgets are vacant. */
  1245.  
  1246.     for(i = 0 ; i < 5 ; i++)
  1247.         Legal[i] = TRUE;
  1248.  
  1249.         /* Check if we were called with a project icon. */
  1250.  
  1251.     WArg        = WBenchMsg -> sm_ArgList;
  1252.     NumItems    = WBenchMsg -> sm_NumArgs - 1;
  1253.  
  1254.     WArg++;
  1255.  
  1256.         /* Obviously not. */
  1257.  
  1258.     if(!NumItems)
  1259.     {
  1260.         SimpleRequest("Usage:\nHold  down Shift-Key, select files to be\ndecompressed,   then   double-click  the\nDecompDisk icon.");
  1261.  
  1262.         CloseLibrary(ReqBase);
  1263.  
  1264.         exit(RETURN_OK);
  1265.     }
  1266.  
  1267.         /* Try to open it, if it doesn't open don't squeak about it. */
  1268.  
  1269.     IconBase = (struct Library *)OpenLibrary("icon.library",0);
  1270.  
  1271.         /* Adjust the window title. */
  1272.  
  1273.     SPrintf(WindowName,"DecompDisk 1.%ld ",PRGVERSION);
  1274.  
  1275.         /* Now try to find if there's a legal drive for each
  1276.          * gadget.
  1277.          */
  1278.  
  1279.     if(!FindDevice("RAD:"))
  1280.     {
  1281.         BoxGad[0] . Flags |= GADGDISABLED;
  1282.         Legal[0] = FALSE;
  1283.     }
  1284.  
  1285.     if(!FindDevice("DF3:"))
  1286.     {
  1287.         BoxGad[1] . Flags |= GADGDISABLED;
  1288.         Legal[1] = FALSE;
  1289.     }
  1290.  
  1291.     if(!FindDevice("DF2:"))
  1292.     {
  1293.         BoxGad[2] . Flags |= GADGDISABLED;
  1294.         Legal[2] = FALSE;
  1295.     }
  1296.  
  1297.     if(!FindDevice("DF1:"))
  1298.     {
  1299.         BoxGad[3] . Flags |= GADGDISABLED;
  1300.         Legal[3] = FALSE;
  1301.     }
  1302.  
  1303.     if(!FindDevice("DF0:"))
  1304.     {
  1305.         BoxGad[4] . Flags |= GADGDISABLED;
  1306.         Legal[4] = FALSE;
  1307.     }
  1308.  
  1309.         /* Remember old AmigaDOS requester ptr. */
  1310.  
  1311.     OldPtr = ThatsMe -> pr_WindowPtr;
  1312.  
  1313.         /* Centre the window under the mouse. */
  1314.  
  1315.     Center(&NewWindow,NewWindow . Width / 2,NewWindow . Height / 2);
  1316.  
  1317.         /* Open the window. */
  1318.  
  1319.     if(Window = OpenWindow(&NewWindow))
  1320.     {
  1321.         LONG         TempVal,Handle;
  1322.         UBYTE        *RemText,*RemMain;
  1323.         struct CompInfo     CompInfo;
  1324.  
  1325.         ThatsMe -> pr_WindowPtr = (APTR)Window;
  1326.  
  1327.         RPort = Window -> RPort;
  1328.  
  1329.         SetFont(RPort,TextFont);
  1330.  
  1331.         SetAPen(RPort,1);
  1332.  
  1333.             /* Walk down the list of projects. */
  1334.  
  1335.         for(j = 0 ; j < NumItems ; j++)
  1336.         {
  1337.                 /* Build the path name. */
  1338.  
  1339. Start:            PathName(WArg -> wa_Lock,StrInfStr,DSIZE * 3);
  1340.             TackOn(StrInfStr,WArg -> wa_Name);
  1341.  
  1342.                 /* Display the name of the project. */
  1343.  
  1344.             RefreshGadgets(&BoxGad[0],Window,NULL);
  1345.  
  1346.                 /* Ring the bell. */
  1347.  
  1348.             Announce();
  1349.  
  1350.                 /* Open the file. */
  1351.  
  1352.             if(Handle = Open(StrInfStr,MODE_OLDFILE))
  1353.             {
  1354.                     /* Do some preliminary checking. */
  1355.  
  1356.                 if(Read(Handle,&CompInfo,sizeof(struct CompInfo)) != sizeof(struct CompInfo))
  1357.                 {
  1358.                     Close(Handle);
  1359.  
  1360.                     SimpleRequest("Error reading file \"%s\"!",StrInfStr);
  1361.                     WArg++;
  1362.  
  1363.                     continue;
  1364.                 }
  1365.  
  1366.                 Close(Handle);
  1367.  
  1368.                 if(CompInfo . ci_ProgramID != MakeID(PROGRAMID))
  1369.                 {
  1370.                     SimpleRequest("\"%s\" is not a compressed disk file!",StrInfStr);
  1371.                     WArg++;
  1372.  
  1373.                     continue;
  1374.                 }
  1375.             }
  1376.             else
  1377.             {
  1378.                 SimpleRequest("Could not open file \"%s\"!",StrInfStr);
  1379.                 WArg++;
  1380.  
  1381.                 continue;
  1382.             }
  1383.  
  1384.                 /* If we can open icon.library, try to identify
  1385.                  * the tooltypes of the project icon.
  1386.                  */
  1387.  
  1388.             if(IconBase)
  1389.             {
  1390.                 LONG Success = TRUE;
  1391.  
  1392.                 if(DiskObject = GetDiskObject(StrInfStr))
  1393.                 {
  1394.                     char *TempID;
  1395.  
  1396.                     if(TempID = (char *)FindToolType(DiskObject -> do_ToolTypes,"FILETYPE"))
  1397.                     {
  1398.                         if(Strcmp(TempID,"COMPDISK"))
  1399.                             Success = FALSE;
  1400.                     }
  1401.                     else
  1402.                         Success = FALSE;
  1403.  
  1404.                     FreeDiskObject(DiskObject);
  1405.                 }
  1406.                 else
  1407.                     Success = FALSE;
  1408.  
  1409.                 if(!Success)
  1410.                 {
  1411.                     SimpleRequest("ToolTypes entry for \"%s\" not recognized!",StrInfStr);
  1412.                     WArg++;
  1413.  
  1414.                     continue;
  1415.                 }
  1416.             }
  1417.  
  1418.                 /* Ad infinitum. */
  1419.  
  1420.             FOREVER
  1421.             {
  1422.                 Move(RPort,100,76);
  1423.                 Punch("Track");
  1424.  
  1425.                 Move(RPort,151,76);
  1426.                 Punch("00/00");
  1427.  
  1428.                 Move(RPort,100,85);
  1429.                 Punch("Idle ");
  1430.  
  1431.                 Move(RPort,151,85);
  1432.                 Punch("    0");
  1433.  
  1434.                     /* Wait for gadget click. */
  1435.  
  1436.                 WaitPort(Window -> UserPort);
  1437.  
  1438.                 if(Massage = (struct IntuiMessage *)GetMsg(Window -> UserPort))
  1439.                 {
  1440.                     Class    = Massage -> Class;
  1441.                     Code    = Massage -> Code;
  1442.                     Gadget    = (struct Gadget *)Massage -> IAddress;
  1443.  
  1444.                     ReplyMsg((struct Message *)Massage);
  1445.  
  1446.                         /* Shut the window. */
  1447.  
  1448.                     if(Class == CLOSEWINDOW)
  1449.                         goto Close;
  1450.  
  1451.                         /* Process the gadgets. */
  1452.  
  1453.                     if(Class == GADGETUP)
  1454.                     {
  1455.                         if(Gadget -> GadgetID == 5)
  1456.                         {
  1457.                             PathName(WArg -> wa_Lock,StrInfStr,DSIZE * 3);
  1458.                             TackOn(StrInfStr,WArg -> wa_Name);
  1459.  
  1460.                             RefreshGadgets(&BoxGad[0],Window,NULL);
  1461.  
  1462.                             continue;
  1463.                         }
  1464.  
  1465.                         TempVal = Gadget -> GadgetID;
  1466.  
  1467.                         RemText = BoxIntTxt[TempVal] . IText;
  1468.  
  1469.                         BoxIntTxt[TempVal] . IText = (UBYTE *)"Stop!";
  1470.  
  1471.                         EraseGadget(RPort,&BoxGad[TempVal],3);
  1472.  
  1473.                         for(i = 0 ; i < 5 ; i++)
  1474.                             if(i != TempVal && Legal[i])
  1475.                                 OffGadget(&BoxGad[i],Window,NULL);
  1476.  
  1477.                         RefreshGadgets(&BoxGad[0],Window,NULL);
  1478.  
  1479.                         RemMain = BoxIntTxt[5] . IText;
  1480.  
  1481.                         BoxIntTxt[5] . IText = (UBYTE *)"   Working   ";
  1482.  
  1483.                         RefreshGadgets(&BoxGad[0],Window,NULL);
  1484.  
  1485.                         DriveWanted = TempVal;
  1486.  
  1487.                         RemoveGadget(Window,&BoxGad[5]);
  1488.  
  1489.                         SetWait(Window);
  1490.  
  1491.                         Success = WriteDump(StrInfStr,Drives[DriveWanted]);
  1492.  
  1493.                         AddGadget(Window,&BoxGad[5],5);
  1494.  
  1495.                         ClearPointer(Window);
  1496.  
  1497.                         for(i = 0 ; i < 5 ; i++)
  1498.                         {
  1499.                             if(i != TempVal && Legal[i])
  1500.                             {
  1501.                                 EraseGadget(RPort,&BoxGad[i],0);
  1502.                                 OnGadget(&BoxGad[i],Window,NULL);
  1503.                             }
  1504.                         }
  1505.  
  1506.                         BoxIntTxt[TempVal] . IText = RemText;
  1507.  
  1508.                         BoxIntTxt[5] . IText = RemMain;
  1509.  
  1510.                         EraseGadget(RPort,&BoxGad[TempVal],0);
  1511.  
  1512.                         RefreshGadgets(&BoxGad[0],Window,NULL);
  1513.  
  1514.                         DriveWanted = -1;
  1515.  
  1516.                         if(!Success)
  1517.                             goto Start;
  1518.  
  1519.                         goto NextGo;
  1520.                     }
  1521.                 }
  1522.             }
  1523.  
  1524.                 /* Get the next project entry. */
  1525.  
  1526. NextGo:            WArg++;
  1527.         }
  1528.  
  1529. Close:        CloseWindow(Window);
  1530.  
  1531.             /* Ahm dunn. */
  1532.  
  1533.         SimpleRequest("All finished decompressing disks.");
  1534.     }
  1535.     else
  1536.         SimpleRequest("Couldn't open Window!");
  1537.  
  1538.         /* Restore the old ptr. */
  1539.  
  1540.     ThatsMe -> pr_WindowPtr = OldPtr;
  1541.  
  1542.         /* Close the rest. */
  1543.  
  1544.     if(IconBase)
  1545.         CloseLibrary(IconBase);
  1546.  
  1547.     CloseFont(TextFont);
  1548.  
  1549.     CloseLibrary(ReqBase);
  1550.  
  1551.     exit(RETURN_OK);
  1552.  
  1553.         /* This follows the CLI interface. */
  1554.  
  1555. CallOn:    if(!argv[ARG_FILE])
  1556.     {
  1557.         Puts("\33[1mDecompDisk:\33[0m Output/source filename required.");
  1558.         Puts(CLI_Help);
  1559.         exit(RETURN_WARN);
  1560.     }
  1561.  
  1562.         /* Drive name given? */
  1563.  
  1564.     if(!argv[ARG_DRIVE])
  1565.     {
  1566.         Puts("\33[1mDecompDisk:\33[0m Output/source drive name required.");
  1567.         Puts(CLI_Help);
  1568.         exit(RETURN_WARN);
  1569.     }
  1570.  
  1571.     Puts("");
  1572.  
  1573.         /* So we have valid time counters. */
  1574.  
  1575.     CurrentTime(&Secs1,&Micros);
  1576.  
  1577.         /* Do the decompression. */
  1578.  
  1579.     WriteDump(argv[ARG_FILE],argv[ARG_DRIVE]);
  1580.  
  1581.         /* Compare the difference. */
  1582.  
  1583.     CurrentTime(&Secs2,&Micros);
  1584.  
  1585.         /* Show the statistics. */
  1586.  
  1587.     Printf("\2331AElapsed minutes = %ld.%02ld\233K\n",(Secs2 - Secs1) / 60,(Secs2 - Secs1) % 60);
  1588.  
  1589.     exit(RETURN_OK);
  1590. }
  1591.